home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / asmpak4.lha / ZOOMBALLS.S < prev   
Encoding:
Text File  |  1980-01-01  |  24.5 KB  |  1,613 lines
  1.  
  2. **    THIS IS AN EARLY STAGE VERSION OF A ZOOMBALL RUTINE.
  3. **    AT THIS STAGE THERE IS ANOUGH FREE RASTERTIME, TO ADD
  4. **    TWO MORE ZOOMBALL. THE RUTINE CAN EASILY BE OPTIMIZED MORE.
  5. **    CODED BY CRADON/MATRIX (ASM-ONE FORMAT)
  6.  
  7. *******************************************************************************
  8.  
  9.     SECTION    MAIN,CODE_F
  10.  
  11. START    MOVEM.L    D0-A6,-(A7)        
  12.     MOVE.W    $DFF01C,INTENA
  13.     MOVE.W    $DFF002,DMACON
  14.     MOVE.W    $DFF010,ADKCON
  15.     MOVE.W    #%0111111111111111,$DFF096
  16.     MOVE.W    #%0111111111111111,$DFF09A
  17.     MOVE.W    #%0111111111111111,$DFF09C
  18.     MOVE.W    #$0000,$DFF180
  19.     MOVE.L     $6C,OLDIRQ
  20.     MOVE.L     #MYIRQ,$6C
  21.     JSR    INITCIR
  22.     JSR    COPYCIR
  23.     JSR    INITCOP    
  24.     MOVE.W    #%1000001111000000,$DFF096
  25.     MOVE.W     #%1100000000110000,$DFF09A
  26. LOOP    BTST    #6,$BFE001
  27.     BNE.B    LOOP
  28. ENDE    MOVE.W    #%0111111111111111,$DFF096
  29.     MOVE.W    #%0111111111111111,$DFF09A
  30.     MOVE.W    #%0111111111111111,$DFF09C
  31.     MOVE.L    OLDIRQ,$00006C
  32.     MOVE.W    DMACON,D0            
  33.     OR.W    #$8000,D0            
  34.     MOVE.W    D0,$DFF096
  35.     MOVE.W    ADKCON,D0            
  36.     OR.W    #$8000,D0
  37.     MOVE.W    D0,$DFF09E
  38.     MOVE.W    INTENA,D0            
  39.     OR.W    #$C000,D0
  40.     MOVE.W    D0,$DFF09A
  41.     CLR.W    $DFF088
  42.     MOVEM.L    (A7)+,D0-A6
  43.     RTS
  44.  
  45. ** CREATE CIRKEL TABLE ********************************************************
  46.  
  47. ELEMENTS = 400
  48. RADIUS = 87
  49. STARTX = 87
  50.  
  51. INITCIR    MOVE.W    #STARTX,D1
  52.     MOVE.W    #STARTX,D2
  53.     LEA.L    TABLE,A0
  54.     LEA.L    TABLE,A1
  55.     ADD.L    #STARTX*2*2,A1
  56. LOOPCIR    MOVE.W    #RADIUS*RADIUS,D0
  57.     MOVE.W    D2,D1
  58.     MULS    D1,D1
  59.     SUB.W    D1,D0
  60.     BSR.S    SQR        ; SQR(R²-X²)
  61.     MOVE.W    D0,(A0)+
  62.     MOVE.W    D0,-(A1)
  63.     SUBQ.W    #1,D2
  64.     BNE.B    LOOPCIR
  65.     RTS
  66. SQR    TST.W    D0
  67.     BEQ.S    .EXIT
  68.     MOVE.L    D1,-(SP)
  69.     MOVE.W    D0,D1
  70.     CMP.W    #64,D1
  71.     BHI.B    .SQR1
  72.     LSR.W    #3,D0
  73.     ADDQ.W    #2,D0
  74.     BRA.S    .SQR4
  75. .SQR1    CMP.W    #1024,D1
  76.     BHI.S    .SQR2
  77.     LSR.W    #5,D0
  78.     ADDQ.W    #8,D0
  79.     BRA.S    .SQR4
  80. .SQR2    CMP.W    #8192,D1
  81.     BHI.S    .SQR3
  82.     LSR.W    #7,D0
  83.     ADD.W    #32,D0
  84.     BRA.S    .SQR4
  85. .SQR3    LSR.W    #8,D0
  86.     CMP.W    #32767,D1
  87.     BHI.S    .SQR4
  88.     ADD.W    #64,D0
  89. .SQR4    EXT.L    D1
  90.     DIVU    D0,D1
  91.     ADD.W    D1,D0
  92.     LSR.W    #1,D0
  93.     MOVE.L    (SP)+,D1
  94. .EXIT    RTS
  95.  
  96. ** MAKE A TABLE FOR EACH ZOOM VALUE *******************************************
  97.  
  98. COPYCIR    LEA.L    TABLE(PC),A0
  99.     LEA.L    REPLICA(PC),A1
  100.     MOVEQ    #0,D0        ; ZOOM
  101.     MOVE.W    #87,D4
  102. CGLOBAL    ADDQ.W    #1,D0
  103.     MOVE.W    #RADIUS*256,D2
  104.     DIVU    D0,D2
  105.     EXT.L    D2
  106.     MOVE.W    #2*87,D3
  107. CLOOP    MOVE.W    (A0)+,D1
  108.     LSL.W    #8,D1
  109.     DIVU    D2,D1
  110.     MULU    #24,D1
  111.     MOVE.W    D1,(A1)+
  112.     SUBQ.W    #1,D3
  113.     BNE    CLOOP
  114.     LEA.L    TABLE,A0
  115.     SUBQ.W    #1,D4
  116.     BNE    CGLOBAL
  117.     RTS
  118.  
  119. ** REALTIME VECTOR ZOOM BALLS *************************************************
  120.  
  121. VECTOR    JSR    ANGLES
  122.  
  123.     MOVE.W    X1,D0
  124.     MOVE.W    Y1,D1
  125.     MOVE.W    Z1,D2
  126.     MOVE.L    SCREEN_ADRESS,A1
  127.     move.l    a1,a5
  128.     SUB.W    XCENTER(PC),D0
  129.     SUB.W    YCENTER(PC),D1
  130.     SUB.W    ZCENTER(PC),D2
  131.     BSR.W    ROTATE
  132.     ADD.W    ZCENTER(PC),D2
  133.     JSR    CONVERT
  134.     ADD.W    XCENTER(PC),D0
  135.     ADD.W    YCENTER(PC),D1
  136.     MOVE.W    D0,SAFEX
  137.     MOVE.W    D1,SAFEY
  138.     SUB.W    #90,D0
  139.     EXT.L    D2
  140.     DIVU    #7,D2
  141.     MOVE.W    #88,D3
  142.     SUB.W    D2,D3
  143.     MOVE.W    D3,ZOOM
  144.     JSR    BALL
  145.     JSR    CLRTAIL
  146.  
  147.     MOVE.W    X2,D0
  148.     MOVE.W    Y2,D1
  149.     MOVE.W    Z2,D2
  150.     MOVE.L    SCREEN_ADRESS,A1
  151.     ADD.L    #[336/8*256],A1
  152.     move.l    a1,a5
  153.     SUB.W    XCENTER(PC),D0
  154.     SUB.W    YCENTER(PC),D1
  155.     SUB.W    ZCENTER(PC),D2
  156.     BSR.W    ROTATE
  157.     ADD.W    ZCENTER(PC),D2
  158.     JSR    CONVERT
  159.     ADD.W    XCENTER(PC),D0
  160.     ADD.W    YCENTER(PC),D1
  161.     MOVE.W    D0,SAFEX
  162.     MOVE.W    D1,SAFEY
  163.     SUB.W    #90,D0
  164.     EXT.L    D2
  165.     DIVU    #7,D2
  166.     MOVE.W    #88,D3
  167.     SUB.W    D2,D3
  168.     MOVE.W    D3,ZOOM
  169.     JSR    BALL
  170.     JSR    CLRTAIL
  171.  
  172.     MOVE.W    X3,D0
  173.     MOVE.W    Y3,D1
  174.     MOVE.W    Z3,D2
  175.     MOVE.L    SCREEN_ADRESS,A1
  176.     ADD.L    #2*[336/8*256],A1
  177.     move.l    a1,a5
  178.     SUB.W    XCENTER(PC),D0
  179.     SUB.W    YCENTER(PC),D1
  180.     SUB.W    ZCENTER(PC),D2
  181.     BSR.W    ROTATE
  182.     ADD.W    ZCENTER(PC),D2
  183.     JSR    CONVERT
  184.     ADD.W    XCENTER(PC),D0
  185.     ADD.W    YCENTER(PC),D1
  186.     MOVE.W    D0,SAFEX
  187.     MOVE.W    D1,SAFEY
  188.     SUB.W    #90,D0
  189.     EXT.L    D2
  190.     DIVU    #7,D2
  191.     MOVE.W    #88,D3
  192.     SUB.W    D2,D3
  193.     MOVE.W    D3,ZOOM
  194.     JSR    BALL
  195.     JSR    CLRTAIL
  196.  
  197.     MOVE.W    X4,D0
  198.     MOVE.W    Y4,D1
  199.     MOVE.W    Z4,D2
  200.     MOVE.L    SCREEN_ADRESS,A1
  201.     ADD.L    #3*[336/8*256],A1
  202.     move.l    a1,a5
  203.     SUB.W    XCENTER(PC),D0
  204.     SUB.W    YCENTER(PC),D1
  205.     SUB.W    ZCENTER(PC),D2
  206.     BSR.W    ROTATE
  207.     ADD.W    ZCENTER(PC),D2
  208.     JSR    CONVERT
  209.     ADD.W    XCENTER(PC),D0
  210.     ADD.W    YCENTER(PC),D1
  211.     MOVE.W    D0,SAFEX
  212.     MOVE.W    D1,SAFEY
  213.     SUB.W    #90,D0
  214.     EXT.L    D2
  215.     DIVU    #7,D2
  216.     MOVE.W    #88,D3
  217.     SUB.W    D2,D3
  218.     MOVE.W    D3,ZOOM
  219.     JSR    BALL
  220.     JSR    CLRTAIL
  221.  
  222.     RTS
  223.  
  224. ** BLIT BALL ******************************************************************
  225.  
  226. BALL    SUB.W    #8,D1
  227.     ADD.W    #15,D0
  228.  
  229.     MOVE.W    #%0000100111110000,D6
  230.     TST.W    D0
  231.     BGE.B    .OK
  232.     MOVEQ    #0,D0
  233. .OK    MOVE.W    D0,D2
  234.     EXT.L    D2
  235.     DIVU    #16,D2
  236.     MOVE.W    D2,D0
  237.     SWAP    D2
  238.     ROR.W    #4,D2
  239.     AND.W    #$F000,D2
  240.     OR.W    D2,D6    
  241.     MULU    #2,D0
  242.     ADD.W    D0,A1
  243.     MULU    #42,D1
  244.     ADD.L    D1,A1    
  245.     MOVEQ    #0,D0
  246.     MOVEQ    #0,D2
  247.     MOVEQ    #0,D3
  248.     MOVE.W    ZOOM,D0
  249.     LSL.W    #1,D0        ; D0 = 2*RADIUS = HIGHT
  250.     MOVE.W    #RADIUS*256,D2
  251. ;    tst.w    zoom
  252. ;    beq    null
  253.     DIVU    ZOOM,D2
  254. null    EXT.L    D2        ; D2 = MAX BALL-DATA OFFSET
  255.     MOVE.W    D2,D3
  256.     LSL.W    #1,D3        ; D3 = TABLE FACTOR
  257.     LEA.L    BALLDAT,A0    ; BLIT FIRST LINE WITH ALL SETTINGS
  258.     JSR    BLTLINE
  259.     SUBQ.W    #1,D0
  260.     LEA.L    REPLICA,A2
  261.     MOVE.W    ZOOM,D7
  262.     MULU    #2*2*87,D7
  263.     ADD.W    D7,A2
  264.  
  265.     MOVE.L    #$DFF000,A4
  266.     MOVEQ    #0,D5
  267. .BLOOP    LEA.L    BALLDAT,A0
  268.     ADD.L    D3,D5    
  269.     MOVE.L    D5,D4
  270.     LSR.L    #8,D4
  271.     BCLR    #0,D4        ; ONLY EVEN ADRESSES
  272.     EXT.L    D4
  273.     MOVE.W    (A2,D4.W),D1    ; D1 = SINUS
  274.     ADD.W    D1,A0        ; A0 = POINT TO BALL LINE
  275.     BSR.W    BLTFAST        ; BLIT LINE FAST
  276.     SUBQ.W    #1,D0
  277.     BNE.B    .BLOOP
  278.     RTS
  279.  
  280. ** BLIT BALL ******************************************************************
  281.  
  282. BLTLINE    BTST    #14,$DFF002
  283.     BNE.B    BLTLINE
  284.     MOVE.W    D6,$DFF040            ; A SHIFT + MINTERM
  285.     MOVE.W    #%1111111111111111,$DFF044
  286.     MOVE.W    #%1111111111111111,$DFF046
  287.     MOVE.L    A0,$DFF050            ; SOURCE A
  288.     MOVE.L    A1,$DFF054            ; DESTINATION
  289.     MOVE.W    #00,$DFF064            ; MODULO A
  290.     MOVE.W    #18,$DFF066            ; MODULO D
  291.     MOVE.W    #[1*64+192/16],$DFF058
  292.     RTS
  293.  
  294. BLTFAST    BTST    #14,$2(A4)
  295.     BNE.B    BLTFAST
  296.     MOVE.L    A0,$50(A4)
  297.     MOVE.W    #[1*64+192/16],$58(A4)
  298.     RTS
  299.  
  300.  
  301. ** CLEAR BALL TAIL ************************************************************
  302.  
  303. CLRTAIL    MOVEM.L    D0-A6,-(A7)        
  304.  
  305. ;    move.w    #$0fff,$dff180
  306.  
  307. WAIT2    BTST    #14,$DFF002        ; CLEAR BUTTOM TAIL
  308.     BNE.S    WAIT2
  309.     MOVE.W    #$0100,$DFF040
  310.     MOVE.W    #$0000,$DFF042
  311.     MOVE.L    #$FFFFFFFF,$DFF044
  312. ;    MOVE.L    A0,$DFF054        ; DEST = CONTINUE FROM BUTTOM OF BALL
  313.     MOVE.W    #0,$DFF066
  314.     MOVE.W    #[20*64+336/16],$DFF058
  315.     MOVE.W    SAFEX,D0
  316.     MOVE.W    SAFEY,D1
  317.     SUB.W    #30,D1
  318.     TST.W    D1
  319.     BHI    OK2
  320. ;    MOVE.W    #0,D1
  321. OK2    MULU    #42,D1
  322.     ADD.W    D1,A5    
  323. WAIT1    BTST    #14,$DFF002        ; CLEAR TOP TAIL
  324.     BNE.S    WAIT1
  325.     MOVE.W    #$0100,$DFF040
  326.     MOVE.W    #$0000,$DFF042
  327.     MOVE.L    #$FFFFFFFF,$DFF044
  328.     MOVE.L    A5,$DFF054
  329.     MOVE.W    #0,$DFF066
  330.     MOVE.W    #[23*64+336/16],$DFF058
  331.  
  332. ;    move.w    #$0000,$dff180
  333.  
  334. OUT    MOVEM.L    (A7)+,D0-A6
  335.     RTS
  336.  
  337. ** ROTATE *********************************************************************
  338.  
  339. ROTATE    LEA.L    SIN_TABLE,A2
  340.     LEA.L    COS_TABLE,A3
  341.     MOVE.W    XVINKEL(PC),D5
  342.     MOVE.W    YVINKEL(PC),D6
  343.     MOVE.W    ZVINKEL(PC),D7
  344.     LSL.W    #1,D5
  345.     LSL.W    #1,D6
  346.     LSL.W    #1,D7
  347.     MOVE.W    (A3,D5.W),D3
  348.     MOVE.W    (A2,D5.W),D4
  349.     MULS    D1,D3
  350.     MULS    D2,D4
  351.     SUB.L    D4,D3
  352.     LSL.L    #2,D3
  353.     MOVE.L    D3,Y
  354.     MOVE.W    (A2,D5.W),D3
  355.     MOVE.W    (A3,D5.W),D4
  356.     MULS    D1,D3
  357.     MULS    D2,D4
  358.     ADD.L    D4,D3
  359.     LSL.L    #2,D3
  360.     MOVE.L    D3,Z
  361.     MOVE.W    (A3,D6.W),D3
  362.     MOVE.W    (A2,D6.W),D4
  363.     MULS    D0,D3
  364.     MULS    Z(PC),D4
  365.     SUB.L    D4,D3
  366.     LSL.L    #2,D3
  367.     MOVE.L    D3,X
  368.     MOVE.W    (A2,D6.W),D2
  369.     MOVE.W    (A3,D6.W),D4
  370.     MULS    D0,D2
  371.     MULS    Z(PC),D4
  372.     ADD.L    D4,D2
  373.     LSL.L    #2,D2
  374.     SWAP    D2
  375.     EXT.L    D2
  376.     MOVE.W    (A3,D7.W),D0
  377.     MOVE.W    (A2,D7.W),D4
  378.     MULS    X(PC),D0
  379.     MULS    Y(PC),D4
  380.     SUB.L    D4,D0
  381.     LSL.L    #2,D0
  382.     SWAP    D0
  383.     EXT.L    D0
  384.     MOVE.W    (A2,D7.W),D1
  385.     MOVE.W    (A3,D7.W),D3
  386.     MULS    X(PC),D1
  387.     MULS    Y(PC),D3
  388.     ADD.L    D3,D1
  389.     LSL.L    #2,D1
  390.     SWAP    D1
  391.     EXT.L    D1
  392.     RTS
  393.  
  394. ** CONVERT POINT FROM 3D TO 2D ************************************************
  395.  
  396. CONVERT    MULS    ZOOMB(PC),D0
  397.     MULS    ZOOMB(PC),D1
  398.     DIVS    D2,D0
  399.     DIVS    D2,D1
  400.     RTS
  401.  
  402. ** CLACULATE NEW VIEW ANGLE ***************************************************
  403.  
  404. ANGLES    MOVE.W    YDELTA(PC),D0
  405.     ADD.W    D0,YVINKEL
  406.     CMP.W    #512,YVINKEL
  407.     BLT.B    XANGLE
  408.     SUB.W    #512,YVINKEL
  409. XANGLE    MOVE.W    XDELTA(PC),D0
  410.     ADD.W    D0,XVINKEL
  411.     CMP.W    #512,XVINKEL
  412.     BLT.B    ZANGLE
  413.     SUB.W    #512,XVINKEL
  414. ZANGLE    MOVE.W    ZDELTA(PC),D0
  415.     ADD.W    D0,ZVINKEL
  416.     CMP.W    #512,ZVINKEL
  417.     BLT.B    ANGLOUT    
  418.     SUB.W    #512,ZVINKEL
  419. ANGLOUT    RTS
  420.  
  421. ** FLIP BETWEEN FRAMESBUFFERS *************************************************
  422.  
  423. FLIP_SCREEN
  424.     CMP.L     #SCREEN1,SCREEN_ADRESS        
  425.     BEQ.S    FLIP_TO_SCREEN2
  426.     LEA.L    PLANES,A0
  427.     MOVE.L    #SCREEN2,D0
  428.     MOVE.W    D0,6(A0)
  429.     SWAP     D0
  430.     MOVE.W    D0,2(A0)
  431.     MOVE.L    #SCREEN2+[336/8*256],D0
  432.     MOVE.W    D0,14(A0)
  433.     SWAP     D0
  434.     MOVE.W    D0,10(A0)
  435.     MOVE.L    #SCREEN2+2*[336/8*256],D0
  436.     MOVE.W    D0,22(A0)
  437.     SWAP     D0
  438.     MOVE.W    D0,18(A0)
  439.     MOVE.L    #SCREEN2+3*[336/8*256],D0
  440.     MOVE.W    D0,30(A0)
  441.     SWAP     D0
  442.     MOVE.W    D0,26(A0)
  443.     MOVE.L    #SCREEN1,SCREEN_ADRESS    
  444.     RTS
  445. FLIP_TO_SCREEN2
  446.     LEA.L    PLANES,A0
  447.     MOVE.L    #SCREEN1,D0
  448.     MOVE.W    D0,6(A0)
  449.     SWAP     D0
  450.     MOVE.W    D0,2(A0)
  451.     MOVE.L    #SCREEN1+[336/8*256],D0
  452.     MOVE.W    D0,14(A0)
  453.     SWAP     D0
  454.     MOVE.W    D0,10(A0)
  455.     MOVE.L    #SCREEN1+2*[336/8*256],D0
  456.     MOVE.W    D0,22(A0)
  457.     SWAP     D0
  458.     MOVE.W    D0,18(A0)
  459.     MOVE.L    #SCREEN1+3*[336/8*256],D0
  460.     MOVE.W    D0,30(A0)
  461.     SWAP     D0
  462.     MOVE.W    D0,26(A0)
  463.     MOVE.L    #SCREEN2,SCREEN_ADRESS
  464.     RTS
  465.  
  466. ** INTERRUPT ******************************************************************
  467.  
  468. MYIRQ    MOVEM.L    D0-A6,-(A7)
  469.     MOVE.W    #$0000,$DFF180
  470.     JSR    VECTOR
  471.     JSR    FLIP_SCREEN
  472. ;    MOVE.W    #$0024,$DFF180
  473.     MOVE.W    #$20,$DFF09C
  474.     MOVEM.L    (A7)+,D0-A6         
  475.     RTE
  476.  
  477. ** DATA ***********************************************************************
  478.  
  479. SAFEX    DC.W    0
  480. SAFEY    DC.W    0
  481. SCREEN_ADRESS    DC.L    SCREEN1
  482. OLDIRQ    DC.L    0
  483. INTENA    DC.W    0
  484. DMACON    DC.W    0
  485. ADKCON    DC.W    0
  486. ZOOM    DC.W    88    ; OUT OF ORDER! DON'T TOUCH
  487. ZOOMB    DC.W    105
  488. X1    DC.W    220
  489. Y1    DC.W    170
  490. Z1    DC.W    194
  491. X2    DC.W    40
  492. Y2    DC.W    40
  493. Z2    DC.W    510
  494. X3    DC.W    40
  495. Y3    DC.W    40
  496. Z3    DC.W    224
  497. X4    DC.W    170
  498. Y4    DC.W    170
  499. Z4    DC.W    520
  500. Y    DC.L    0
  501. Z    DC.L    0
  502. X    DC.L    0
  503. XCENTER    DC.W    159
  504. YCENTER    DC.W    80
  505. ZCENTER    DC.W    377
  506. XDELTA    DC.W    4
  507. YDELTA    DC.W    6
  508. ZDELTA    DC.W    6
  509. XVINKEL    DC.W    0
  510. YVINKEL    DC.W    0
  511. ZVINKEL    DC.W    0
  512. TABLE    BLK.W    ELEMENTS,$0000
  513. REPLICA    BLK.W    70000,$0000
  514.  
  515. ** INITIALIZE COPPERLIST #2 ***************************************************
  516.  
  517. INITCOP    MOVE.L    #SCREEN1,D0
  518.     LEA.L    PLANES,A0
  519.     MOVE.W    D0,6(A0)
  520.     SWAP    D0
  521.     MOVE.W    D0,2(A0)
  522.     MOVE.L    #SCREEN1+[336/8*256],D0
  523.     LEA.L    PLANES2,A0
  524.     MOVE.W    D0,6(A0)
  525.     SWAP    D0
  526.     MOVE.W    D0,2(A0)
  527.     MOVE.L    #SCREEN1+2*[336/8*256],D0
  528.     LEA.L    PLANES3,A0
  529.     MOVE.W    D0,6(A0)
  530.     SWAP    D0
  531.     MOVE.W    D0,2(A0)
  532.     MOVE.L    #SCREEN1+3*[336/8*256],D0
  533.     LEA.L    PLANES4,A0
  534.     MOVE.W    D0,6(A0)
  535.     SWAP    D0
  536.     MOVE.W    D0,2(A0)
  537.     MOVE.L    #COPPER,D0
  538.     LEA.L    RESTART,A0
  539.     MOVE.W    D0,6(A0)
  540.     SWAP    D0
  541.     MOVE.W    D0,2(A0)
  542.     MOVE.L    #COPPER,$DFF084
  543.     MOVE.B    #$00,$DFF08A
  544.     RTS
  545.  
  546. ** COPPERLIST #2 *************************************************************
  547.  
  548.     SECTION    CHIPDATA,DATA_C
  549.  
  550. COPPER    DC.W    $0106,$0000,$01FC,$0000
  551.     DC.W    $008E,115+(44*256)
  552.     DC.W    $0090,(457-256)+(300-256)*256
  553.     DC.W    $0092,(115/2-8)
  554.     DC.W    $0094,(115/2-8)+(8*(21-1))
  555.     DC.W    $0102,00000,$0104,$0000
  556.     DC.W    $0108,$0000,$010A,$0000
  557.     DC.W    $0106,$0000,$01FC,$0000
  558.  
  559.     DC.W                $0182,$0F04
  560.     DC.W    $0184,$00F0,$0186,$0FF0
  561.     DC.W    $0188,$000F,$018A,$0A0A
  562.     DC.W    $018C,$0C90,$018E,$00F0
  563.     DC.W    $0190,$053F,$0192,$0940
  564.     DC.W    $0194,$06A6,$0196,$0AF0
  565.     DC.W    $0198,$0AFA,$019A,$0A0A
  566.     DC.W    $019C,$0FAA,$019E,$0AF0
  567.  
  568. PLANES    DC.W    $00E0,$0000,$00E2,$0000
  569. PLANES2    DC.W    $00E4,$0000,$00E6,$0000
  570. PLANES3    DC.W    $00E8,$0000,$00EA,$0000
  571. PLANES4    DC.W    $00EC,$0000,$00EE,$0000
  572.     DC.W    $0100,$4200,$FFE1,$FFFE
  573.     DC.W    $3101,$FFFE,$0100,$0200
  574.     DC.W    $0180,$0224,$0182,$0224
  575. RESTART    DC.W    $0084,$0000,$0086,$0000
  576.     DC.W    $008A,$0000,$FFFF,$FFFE        ; FORCE RESTART
  577.  
  578. *******************************************************************************
  579.  
  580. BALLDAT    INCBIN    "DH0:CODING/SOURCE/VECTOR/BALL.BIT"    ; 176 - 192
  581. SAFETY    BLK.B    [336/8*60],0
  582. SCREEN1    BLK.B    [4*356/8*256],$00
  583. SCREEN2    BLK.B    [4*356/8*256],$00
  584. SAFETY2    BLK.B    [336/8*60],0
  585.  
  586. SIN_TABLE
  587.     DC.W     0 
  588.     DC.W     201 
  589.     DC.W     402 
  590.     DC.W     603 
  591.     DC.W     803 
  592.     DC.W     1004 
  593.     DC.W     1205 
  594.     DC.W     1405 
  595.     DC.W     1605 
  596.     DC.W     1805 
  597.     DC.W     2005 
  598.     DC.W     2204 
  599.     DC.W     2404 
  600.     DC.W     2602 
  601.     DC.W     2801 
  602.     DC.W     2998 
  603.     DC.W     3196 
  604.     DC.W     3393 
  605.     DC.W     3589 
  606.     DC.W     3785 
  607.     DC.W     3980 
  608.     DC.W     4175 
  609.     DC.W     4369 
  610.     DC.W     4563 
  611.     DC.W     4756 
  612.     DC.W     4948 
  613.     DC.W     5139 
  614.     DC.W     5329 
  615.     DC.W     5519 
  616.     DC.W     5708 
  617.     DC.W     5896 
  618.     DC.W     6083 
  619.     DC.W     6269 
  620.     DC.W     6455 
  621.     DC.W     6639 
  622.     DC.W     6822 
  623.     DC.W     7005 
  624.     DC.W     7186 
  625.     DC.W     7366 
  626.     DC.W     7545 
  627.     DC.W     7723 
  628.     DC.W     7900 
  629.     DC.W     8075 
  630.     DC.W     8249 
  631.     DC.W     8423 
  632.     DC.W     8594 
  633.     DC.W     8765 
  634.     DC.W     8934 
  635.     DC.W     9102 
  636.     DC.W     9268 
  637.     DC.W     9434 
  638.     DC.W     9597 
  639.     DC.W     9759 
  640.     DC.W     9920 
  641.     DC.W     10079 
  642.     DC.W     10237 
  643.     DC.W     10393 
  644.     DC.W     10548 
  645.     DC.W     10701 
  646.     DC.W     10853 
  647.     DC.W     11002 
  648.     DC.W     11150 
  649.     DC.W     11297 
  650.     DC.W     11442 
  651.     DC.W     11585 
  652.     DC.W     11726 
  653.     DC.W     11866 
  654.     DC.W     12003 
  655.     DC.W     12139 
  656.     DC.W     12273 
  657.     DC.W     12406 
  658.     DC.W     12536 
  659.     DC.W     12665 
  660.     DC.W     12791 
  661.     DC.W     12916 
  662.     DC.W     13038 
  663.     DC.W     13159 
  664.     DC.W     13278 
  665.     DC.W     13395 
  666.     DC.W     13510 
  667.     DC.W     13622 
  668.     DC.W     13733 
  669.     DC.W     13842 
  670.     DC.W     13948 
  671.     DC.W     14053 
  672.     DC.W     14155 
  673.     DC.W     14255 
  674.     DC.W     14353 
  675.     DC.W     14449 
  676.     DC.W     14543 
  677.     DC.W     14634 
  678.     DC.W     14723 
  679.     DC.W     14810 
  680.     DC.W     14895 
  681.     DC.W     14978 
  682.     DC.W     15058 
  683.     DC.W     15136 
  684.     DC.W     15212 
  685.     DC.W     15286 
  686.     DC.W     15357 
  687.     DC.W     15426 
  688.     DC.W     15492 
  689.     DC.W     15557 
  690.     DC.W     15618 
  691.     DC.W     15678 
  692.     DC.W     15735 
  693.     DC.W     15790 
  694.     DC.W     15842 
  695.     DC.W     15892 
  696.     DC.W     15940 
  697.     DC.W     15985 
  698.     DC.W     16028 
  699.     DC.W     16069 
  700.     DC.W     16107 
  701.     DC.W     16142 
  702.     DC.W     16175 
  703.     DC.W     16206 
  704.     DC.W     16234 
  705.     DC.W     16260 
  706.     DC.W     16284 
  707.     DC.W     16305 
  708.     DC.W     16323 
  709.     DC.W     16339 
  710.     DC.W     16353 
  711.     DC.W     16364 
  712.     DC.W     16372 
  713.     DC.W     16379 
  714.     DC.W     16382 
  715.     DC.W     16384 
  716.     DC.W     16382 
  717.     DC.W     16379 
  718.     DC.W     16372 
  719.     DC.W     16364 
  720.     DC.W     16353 
  721.     DC.W     16339 
  722.     DC.W     16323 
  723.     DC.W     16305 
  724.     DC.W     16284 
  725.     DC.W     16260 
  726.     DC.W     16234 
  727.     DC.W     16206 
  728.     DC.W     16175 
  729.     DC.W     16142 
  730.     DC.W     16107 
  731.     DC.W     16069 
  732.     DC.W     16028 
  733.     DC.W     15985 
  734.     DC.W     15940 
  735.     DC.W     15892 
  736.     DC.W     15842 
  737.     DC.W     15790 
  738.     DC.W     15735 
  739.     DC.W     15678 
  740.     DC.W     15618 
  741.     DC.W     15557 
  742.     DC.W     15492 
  743.     DC.W     15426 
  744.     DC.W     15357 
  745.     DC.W     15286 
  746.     DC.W     15212 
  747.     DC.W     15136 
  748.     DC.W     15058 
  749.     DC.W     14978 
  750.     DC.W     14895 
  751.     DC.W     14810 
  752.     DC.W     14723 
  753.     DC.W     14634 
  754.     DC.W     14543 
  755.     DC.W     14449 
  756.     DC.W     14353 
  757.     DC.W     14255 
  758.     DC.W     14155 
  759.     DC.W     14053 
  760.     DC.W     13948 
  761.     DC.W     13842 
  762.     DC.W     13733 
  763.     DC.W     13622 
  764.     DC.W     13510 
  765.     DC.W     13395 
  766.     DC.W     13278 
  767.     DC.W     13159 
  768.     DC.W     13038 
  769.     DC.W     12916 
  770.     DC.W     12791 
  771.     DC.W     12665 
  772.     DC.W     12536 
  773.     DC.W     12406 
  774.     DC.W     12273 
  775.     DC.W     12139 
  776.     DC.W     12003 
  777.     DC.W     11866 
  778.     DC.W     11726 
  779.     DC.W     11585 
  780.     DC.W     11442 
  781.     DC.W     11297 
  782.     DC.W     11150 
  783.     DC.W     11002 
  784.     DC.W     10853 
  785.     DC.W     10701 
  786.     DC.W     10548 
  787.     DC.W     10393 
  788.     DC.W     10237 
  789.     DC.W     10079 
  790.     DC.W     9920 
  791.     DC.W     9759 
  792.     DC.W     9597 
  793.     DC.W     9434 
  794.     DC.W     9268 
  795.     DC.W     9102 
  796.     DC.W     8934 
  797.     DC.W     8765 
  798.     DC.W     8594 
  799.     DC.W     8423 
  800.     DC.W     8249 
  801.     DC.W     8075 
  802.     DC.W     7900 
  803.     DC.W     7723 
  804.     DC.W     7545 
  805.     DC.W     7366 
  806.     DC.W     7186 
  807.     DC.W     7005 
  808.     DC.W     6822 
  809.     DC.W     6639 
  810.     DC.W     6455 
  811.     DC.W     6269 
  812.     DC.W     6083 
  813.     DC.W     5896 
  814.     DC.W     5708 
  815.     DC.W     5519 
  816.     DC.W     5329 
  817.     DC.W     5139 
  818.     DC.W     4948 
  819.     DC.W     4756 
  820.     DC.W     4563 
  821.     DC.W     4369 
  822.     DC.W     4175 
  823.     DC.W     3980 
  824.     DC.W     3785 
  825.     DC.W     3589 
  826.     DC.W     3393 
  827.     DC.W     3196 
  828.     DC.W     2998 
  829.     DC.W     2801 
  830.     DC.W     2602 
  831.     DC.W     2404 
  832.     DC.W     2204 
  833.     DC.W     2005 
  834.     DC.W     1805 
  835.     DC.W     1605 
  836.     DC.W     1405 
  837.     DC.W     1205 
  838.     DC.W     1004 
  839.     DC.W     803 
  840.     DC.W     603 
  841.     DC.W     402 
  842.     DC.W     201 
  843.     DC.W    -1 
  844.     DC.W    -202 
  845.     DC.W    -403 
  846.     DC.W    -604 
  847.     DC.W    -804 
  848.     DC.W    -1005 
  849.     DC.W    -1206 
  850.     DC.W    -1406 
  851.     DC.W    -1606 
  852.     DC.W    -1806 
  853.     DC.W    -2006 
  854.     DC.W    -2205 
  855.     DC.W    -2405 
  856.     DC.W    -2603 
  857.     DC.W    -2802 
  858.     DC.W    -2999 
  859.     DC.W    -3197 
  860.     DC.W    -3394 
  861.     DC.W    -3590 
  862.     DC.W    -3786 
  863.     DC.W    -3981 
  864.     DC.W    -4176 
  865.     DC.W    -4370 
  866.     DC.W    -4564 
  867.     DC.W    -4757 
  868.     DC.W    -4949 
  869.     DC.W    -5140 
  870.     DC.W    -5330 
  871.     DC.W    -5520 
  872.     DC.W    -5709 
  873.     DC.W    -5897 
  874.     DC.W    -6084 
  875.     DC.W    -6270 
  876.     DC.W    -6456 
  877.     DC.W    -6640 
  878.     DC.W    -6823 
  879.     DC.W    -7006 
  880.     DC.W    -7187 
  881.     DC.W    -7367 
  882.     DC.W    -7546 
  883.     DC.W    -7724 
  884.     DC.W    -7901 
  885.     DC.W    -8076 
  886.     DC.W    -8250 
  887.     DC.W    -8424 
  888.     DC.W    -8595 
  889.     DC.W    -8766 
  890.     DC.W    -8935 
  891.     DC.W    -9103 
  892.     DC.W    -9269 
  893.     DC.W    -9435 
  894.     DC.W    -9598 
  895.     DC.W    -9760 
  896.     DC.W    -9921 
  897.     DC.W    -10080 
  898.     DC.W    -10238 
  899.     DC.W    -10394 
  900.     DC.W    -10549 
  901.     DC.W    -10702 
  902.     DC.W    -10854 
  903.     DC.W    -11003 
  904.     DC.W    -11151 
  905.     DC.W    -11298 
  906.     DC.W    -11443 
  907.     DC.W    -11586 
  908.     DC.W    -11727 
  909.     DC.W    -11867 
  910.     DC.W    -12004 
  911.     DC.W    -12140 
  912.     DC.W    -12274 
  913.     DC.W    -12407 
  914.     DC.W    -12537 
  915.     DC.W    -12666 
  916.     DC.W    -12792 
  917.     DC.W    -12917 
  918.     DC.W    -13039 
  919.     DC.W    -13160 
  920.     DC.W    -13279 
  921.     DC.W    -13396 
  922.     DC.W    -13511 
  923.     DC.W    -13623 
  924.     DC.W    -13734 
  925.     DC.W    -13843 
  926.     DC.W    -13949 
  927.     DC.W    -14054 
  928.     DC.W    -14156 
  929.     DC.W    -14256 
  930.     DC.W    -14354 
  931.     DC.W    -14450 
  932.     DC.W    -14544 
  933.     DC.W    -14635 
  934.     DC.W    -14724 
  935.     DC.W    -14811 
  936.     DC.W    -14896 
  937.     DC.W    -14979 
  938.     DC.W    -15059 
  939.     DC.W    -15137 
  940.     DC.W    -15213 
  941.     DC.W    -15287 
  942.     DC.W    -15358 
  943.     DC.W    -15427 
  944.     DC.W    -15493 
  945.     DC.W    -15558 
  946.     DC.W    -15619 
  947.     DC.W    -15679 
  948.     DC.W    -15736 
  949.     DC.W    -15791 
  950.     DC.W    -15843 
  951.     DC.W    -15893 
  952.     DC.W    -15941 
  953.     DC.W    -15986 
  954.     DC.W    -16029 
  955.     DC.W    -16070 
  956.     DC.W    -16108 
  957.     DC.W    -16143 
  958.     DC.W    -16176 
  959.     DC.W    -16207 
  960.     DC.W    -16235 
  961.     DC.W    -16261 
  962.     DC.W    -16285 
  963.     DC.W    -16306 
  964.     DC.W    -16324 
  965.     DC.W    -16340 
  966.     DC.W    -16354 
  967.     DC.W    -16365 
  968.     DC.W    -16373 
  969.     DC.W    -16380 
  970.     DC.W    -16383 
  971.     DC.W    -16384 
  972.     DC.W    -16383 
  973.     DC.W    -16380 
  974.     DC.W    -16373 
  975.     DC.W    -16365 
  976.     DC.W    -16354 
  977.     DC.W    -16340 
  978.     DC.W    -16324 
  979.     DC.W    -16306 
  980.     DC.W    -16285 
  981.     DC.W    -16261 
  982.     DC.W    -16235 
  983.     DC.W    -16207 
  984.     DC.W    -16176 
  985.     DC.W    -16143 
  986.     DC.W    -16108 
  987.     DC.W    -16070 
  988.     DC.W    -16029 
  989.     DC.W    -15986 
  990.     DC.W    -15941 
  991.     DC.W    -15893 
  992.     DC.W    -15843 
  993.     DC.W    -15791 
  994.     DC.W    -15736 
  995.     DC.W    -15679 
  996.     DC.W    -15619 
  997.     DC.W    -15558 
  998.     DC.W    -15493 
  999.     DC.W    -15427 
  1000.     DC.W    -15358 
  1001.     DC.W    -15287 
  1002.     DC.W    -15213 
  1003.     DC.W    -15137 
  1004.     DC.W    -15059 
  1005.     DC.W    -14979 
  1006.     DC.W    -14896 
  1007.     DC.W    -14811 
  1008.     DC.W    -14724 
  1009.     DC.W    -14635 
  1010.     DC.W    -14544 
  1011.     DC.W    -14450 
  1012.     DC.W    -14354 
  1013.     DC.W    -14256 
  1014.     DC.W    -14156 
  1015.     DC.W    -14054 
  1016.     DC.W    -13949 
  1017.     DC.W    -13843 
  1018.     DC.W    -13734 
  1019.     DC.W    -13623 
  1020.     DC.W    -13511 
  1021.     DC.W    -13396 
  1022.     DC.W    -13279 
  1023.     DC.W    -13160 
  1024.     DC.W    -13039 
  1025.     DC.W    -12917 
  1026.     DC.W    -12792 
  1027.     DC.W    -12666 
  1028.     DC.W    -12537 
  1029.     DC.W    -12407 
  1030.     DC.W    -12274 
  1031.     DC.W    -12140 
  1032.     DC.W    -12004 
  1033.     DC.W    -11867 
  1034.     DC.W    -11727 
  1035.     DC.W    -11586 
  1036.     DC.W    -11443 
  1037.     DC.W    -11298 
  1038.     DC.W    -11151 
  1039.     DC.W    -11003 
  1040.     DC.W    -10854 
  1041.     DC.W    -10702 
  1042.     DC.W    -10549 
  1043.     DC.W    -10394 
  1044.     DC.W    -10238 
  1045.     DC.W    -10080 
  1046.     DC.W    -9921 
  1047.     DC.W    -9760 
  1048.     DC.W    -9598 
  1049.     DC.W    -9435 
  1050.     DC.W    -9269 
  1051.     DC.W    -9103 
  1052.     DC.W    -8935 
  1053.     DC.W    -8766 
  1054.     DC.W    -8595 
  1055.     DC.W    -8424 
  1056.     DC.W    -8250 
  1057.     DC.W    -8076 
  1058.     DC.W    -7901 
  1059.     DC.W    -7724 
  1060.     DC.W    -7546 
  1061.     DC.W    -7367 
  1062.     DC.W    -7187 
  1063.     DC.W    -7006 
  1064.     DC.W    -6823 
  1065.     DC.W    -6640 
  1066.     DC.W    -6456 
  1067.     DC.W    -6270 
  1068.     DC.W    -6084 
  1069.     DC.W    -5897 
  1070.     DC.W    -5709 
  1071.     DC.W    -5520 
  1072.     DC.W    -5330 
  1073.     DC.W    -5140 
  1074.     DC.W    -4949 
  1075.     DC.W    -4757 
  1076.     DC.W    -4564 
  1077.     DC.W    -4370 
  1078.     DC.W    -4176 
  1079.     DC.W    -3981 
  1080.     DC.W    -3786 
  1081.     DC.W    -3590 
  1082.     DC.W    -3394 
  1083.     DC.W    -3197 
  1084.     DC.W    -2999 
  1085.     DC.W    -2802 
  1086.     DC.W    -2603 
  1087.     DC.W    -2405 
  1088.     DC.W    -2205 
  1089.     DC.W    -2006 
  1090.     DC.W    -1806 
  1091.     DC.W    -1606 
  1092.     DC.W    -1406 
  1093.     DC.W    -1206 
  1094.     DC.W    -1005 
  1095.     DC.W    -804 
  1096.     DC.W    -604 
  1097.     DC.W    -403 
  1098.     DC.W    -202 
  1099. COS_TABLE
  1100.     DC.W     16384 
  1101.     DC.W     16382 
  1102.     DC.W     16379 
  1103.     DC.W     16372 
  1104.     DC.W     16364 
  1105.     DC.W     16353 
  1106.     DC.W     16339 
  1107.     DC.W     16323 
  1108.     DC.W     16305 
  1109.     DC.W     16284 
  1110.     DC.W     16260 
  1111.     DC.W     16234 
  1112.     DC.W     16206 
  1113.     DC.W     16175 
  1114.     DC.W     16142 
  1115.     DC.W     16107 
  1116.     DC.W     16069 
  1117.     DC.W     16028 
  1118.     DC.W     15985 
  1119.     DC.W     15940 
  1120.     DC.W     15892 
  1121.     DC.W     15842 
  1122.     DC.W     15790 
  1123.     DC.W     15735 
  1124.     DC.W     15678 
  1125.     DC.W     15618 
  1126.     DC.W     15557 
  1127.     DC.W     15492 
  1128.     DC.W     15426 
  1129.     DC.W     15357 
  1130.     DC.W     15286 
  1131.     DC.W     15212 
  1132.     DC.W     15136 
  1133.     DC.W     15058 
  1134.     DC.W     14978 
  1135.     DC.W     14895 
  1136.     DC.W     14810 
  1137.     DC.W     14723 
  1138.     DC.W     14634 
  1139.     DC.W     14543 
  1140.     DC.W     14449 
  1141.     DC.W     14353 
  1142.     DC.W     14255 
  1143.     DC.W     14155 
  1144.     DC.W     14053 
  1145.     DC.W     13948 
  1146.     DC.W     13842 
  1147.     DC.W     13733 
  1148.     DC.W     13622 
  1149.     DC.W     13510 
  1150.     DC.W     13395 
  1151.     DC.W     13278 
  1152.     DC.W     13159 
  1153.     DC.W     13038 
  1154.     DC.W     12916 
  1155.     DC.W     12791 
  1156.     DC.W     12665 
  1157.     DC.W     12536 
  1158.     DC.W     12406 
  1159.     DC.W     12273 
  1160.     DC.W     12139 
  1161.     DC.W     12003 
  1162.     DC.W     11866 
  1163.     DC.W     11726 
  1164.     DC.W     11585 
  1165.     DC.W     11442 
  1166.     DC.W     11297 
  1167.     DC.W     11150 
  1168.     DC.W     11002 
  1169.     DC.W     10853 
  1170.     DC.W     10701 
  1171.     DC.W     10548 
  1172.     DC.W     10393 
  1173.     DC.W     10237 
  1174.     DC.W     10079 
  1175.     DC.W     9920 
  1176.     DC.W     9759 
  1177.     DC.W     9597 
  1178.     DC.W     9434 
  1179.     DC.W     9268 
  1180.     DC.W     9102 
  1181.     DC.W     8934 
  1182.     DC.W     8765 
  1183.     DC.W     8594 
  1184.     DC.W     8423 
  1185.     DC.W     8249 
  1186.     DC.W     8075 
  1187.     DC.W     7900 
  1188.     DC.W     7723 
  1189.     DC.W     7545 
  1190.     DC.W     7366 
  1191.     DC.W     7186 
  1192.     DC.W     7005 
  1193.     DC.W     6822 
  1194.     DC.W     6639 
  1195.     DC.W     6455 
  1196.     DC.W     6269 
  1197.     DC.W     6083 
  1198.     DC.W     5896 
  1199.     DC.W     5708 
  1200.     DC.W     5519 
  1201.     DC.W     5329 
  1202.     DC.W     5139 
  1203.     DC.W     4948 
  1204.     DC.W     4756 
  1205.     DC.W     4563 
  1206.     DC.W     4369 
  1207.     DC.W     4175 
  1208.     DC.W     3980 
  1209.     DC.W     3785 
  1210.     DC.W     3589 
  1211.     DC.W     3393 
  1212.     DC.W     3196 
  1213.     DC.W     2998 
  1214.     DC.W     2801 
  1215.     DC.W     2602 
  1216.     DC.W     2404 
  1217.     DC.W     2204 
  1218.     DC.W     2005 
  1219.     DC.W     1805 
  1220.     DC.W     1605 
  1221.     DC.W     1405 
  1222.     DC.W     1205 
  1223.     DC.W     1004 
  1224.     DC.W     803 
  1225.     DC.W     603 
  1226.     DC.W     402 
  1227.     DC.W     201 
  1228.     DC.W    -1 
  1229.     DC.W    -202 
  1230.     DC.W    -403 
  1231.     DC.W    -604 
  1232.     DC.W    -804 
  1233.     DC.W    -1005 
  1234.     DC.W    -1206 
  1235.     DC.W    -1406 
  1236.     DC.W    -1606 
  1237.     DC.W    -1806 
  1238.     DC.W    -2006 
  1239.     DC.W    -2205 
  1240.     DC.W    -2405 
  1241.     DC.W    -2603 
  1242.     DC.W    -2802 
  1243.     DC.W    -2999 
  1244.     DC.W    -3197 
  1245.     DC.W    -3394 
  1246.     DC.W    -3590 
  1247.     DC.W    -3786 
  1248.     DC.W    -3981 
  1249.     DC.W    -4176 
  1250.     DC.W    -4370 
  1251.     DC.W    -4564 
  1252.     DC.W    -4757 
  1253.     DC.W    -4949 
  1254.     DC.W    -5140 
  1255.     DC.W    -5330 
  1256.     DC.W    -5520 
  1257.     DC.W    -5709 
  1258.     DC.W    -5897 
  1259.     DC.W    -6084 
  1260.     DC.W    -6270 
  1261.     DC.W    -6456 
  1262.     DC.W    -6640 
  1263.     DC.W    -6823 
  1264.     DC.W    -7006 
  1265.     DC.W    -7187 
  1266.     DC.W    -7367 
  1267.     DC.W    -7546 
  1268.     DC.W    -7724 
  1269.     DC.W    -7901 
  1270.     DC.W    -8076 
  1271.     DC.W    -8250 
  1272.     DC.W    -8424 
  1273.     DC.W    -8595 
  1274.     DC.W    -8766 
  1275.     DC.W    -8935 
  1276.     DC.W    -9103 
  1277.     DC.W    -9269 
  1278.     DC.W    -9435 
  1279.     DC.W    -9598 
  1280.     DC.W    -9760 
  1281.     DC.W    -9921 
  1282.     DC.W    -10080 
  1283.     DC.W    -10238 
  1284.     DC.W    -10394 
  1285.     DC.W    -10549 
  1286.     DC.W    -10702 
  1287.     DC.W    -10854 
  1288.     DC.W    -11003 
  1289.     DC.W    -11151 
  1290.     DC.W    -11298 
  1291.     DC.W    -11443 
  1292.     DC.W    -11586 
  1293.     DC.W    -11727 
  1294.     DC.W    -11867 
  1295.     DC.W    -12004 
  1296.     DC.W    -12140 
  1297.     DC.W    -12274 
  1298.     DC.W    -12407 
  1299.     DC.W    -12537 
  1300.     DC.W    -12666 
  1301.     DC.W    -12792 
  1302.     DC.W    -12917 
  1303.     DC.W    -13039 
  1304.     DC.W    -13160 
  1305.     DC.W    -13279 
  1306.     DC.W    -13396 
  1307.     DC.W    -13511 
  1308.     DC.W    -13623 
  1309.     DC.W    -13734 
  1310.     DC.W    -13843 
  1311.     DC.W    -13949 
  1312.     DC.W    -14054 
  1313.     DC.W    -14156 
  1314.     DC.W    -14256 
  1315.     DC.W    -14354 
  1316.     DC.W    -14450 
  1317.     DC.W    -14544 
  1318.     DC.W    -14635 
  1319.     DC.W    -14724 
  1320.     DC.W    -14811 
  1321.     DC.W    -14896 
  1322.     DC.W    -14979 
  1323.     DC.W    -15059 
  1324.     DC.W    -15137 
  1325.     DC.W    -15213 
  1326.     DC.W    -15287 
  1327.     DC.W    -15358 
  1328.     DC.W    -15427 
  1329.     DC.W    -15493 
  1330.     DC.W    -15558 
  1331.     DC.W    -15619 
  1332.     DC.W    -15679 
  1333.     DC.W    -15736 
  1334.     DC.W    -15791 
  1335.     DC.W    -15843 
  1336.     DC.W    -15893 
  1337.     DC.W    -15941 
  1338.     DC.W    -15986 
  1339.     DC.W    -16029 
  1340.     DC.W    -16070 
  1341.     DC.W    -16108 
  1342.     DC.W    -16143 
  1343.     DC.W    -16176 
  1344.     DC.W    -16207 
  1345.     DC.W    -16235 
  1346.     DC.W    -16261 
  1347.     DC.W    -16285 
  1348.     DC.W    -16306 
  1349.     DC.W    -16324 
  1350.     DC.W    -16340 
  1351.     DC.W    -16354 
  1352.     DC.W    -16365 
  1353.     DC.W    -16373 
  1354.     DC.W    -16380 
  1355.     DC.W    -16383 
  1356.     DC.W    -16384 
  1357.     DC.W    -16383 
  1358.     DC.W    -16380 
  1359.     DC.W    -16373 
  1360.     DC.W    -16365 
  1361.     DC.W    -16354 
  1362.     DC.W    -16340 
  1363.     DC.W    -16324 
  1364.     DC.W    -16306 
  1365.     DC.W    -16285 
  1366.     DC.W    -16261 
  1367.     DC.W    -16235 
  1368.     DC.W    -16207 
  1369.     DC.W    -16176 
  1370.     DC.W    -16143 
  1371.     DC.W    -16108 
  1372.     DC.W    -16070 
  1373.     DC.W    -16029 
  1374.     DC.W    -15986 
  1375.     DC.W    -15941 
  1376.     DC.W    -15893 
  1377.     DC.W    -15843 
  1378.     DC.W    -15791 
  1379.     DC.W    -15736 
  1380.     DC.W    -15679 
  1381.     DC.W    -15619 
  1382.     DC.W    -15558 
  1383.     DC.W    -15493 
  1384.     DC.W    -15427 
  1385.     DC.W    -15358 
  1386.     DC.W    -15287 
  1387.     DC.W    -15213 
  1388.     DC.W    -15137 
  1389.     DC.W    -15059 
  1390.     DC.W    -14979 
  1391.     DC.W    -14896 
  1392.     DC.W    -14811 
  1393.     DC.W    -14724 
  1394.     DC.W    -14635 
  1395.     DC.W    -14544 
  1396.     DC.W    -14450 
  1397.     DC.W    -14354 
  1398.     DC.W    -14256 
  1399.     DC.W    -14156 
  1400.     DC.W    -14054 
  1401.     DC.W    -13949 
  1402.     DC.W    -13843 
  1403.     DC.W    -13734 
  1404.     DC.W    -13623 
  1405.     DC.W    -13511 
  1406.     DC.W    -13396 
  1407.     DC.W    -13279 
  1408.     DC.W    -13160 
  1409.     DC.W    -13039 
  1410.     DC.W    -12917 
  1411.     DC.W    -12792 
  1412.     DC.W    -12666 
  1413.     DC.W    -12537 
  1414.     DC.W    -12407 
  1415.     DC.W    -12274 
  1416.     DC.W    -12140 
  1417.     DC.W    -12004 
  1418.     DC.W    -11867 
  1419.     DC.W    -11727 
  1420.     DC.W    -11586 
  1421.     DC.W    -11443 
  1422.     DC.W    -11298 
  1423.     DC.W    -11151 
  1424.     DC.W    -11003 
  1425.     DC.W    -10854 
  1426.     DC.W    -10702 
  1427.     DC.W    -10549 
  1428.     DC.W    -10394 
  1429.     DC.W    -10238 
  1430.     DC.W    -10080 
  1431.     DC.W    -9921 
  1432.     DC.W    -9760 
  1433.     DC.W    -9598 
  1434.     DC.W    -9435 
  1435.     DC.W    -9269 
  1436.     DC.W    -9103 
  1437.     DC.W    -8935 
  1438.     DC.W    -8766 
  1439.     DC.W    -8595 
  1440.     DC.W    -8424 
  1441.     DC.W    -8250 
  1442.     DC.W    -8076 
  1443.     DC.W    -7901 
  1444.     DC.W    -7724 
  1445.     DC.W    -7546 
  1446.     DC.W    -7367 
  1447.     DC.W    -7187 
  1448.     DC.W    -7006 
  1449.     DC.W    -6823 
  1450.     DC.W    -6640 
  1451.     DC.W    -6456 
  1452.     DC.W    -6270 
  1453.     DC.W    -6084 
  1454.     DC.W    -5897 
  1455.     DC.W    -5709 
  1456.     DC.W    -5520 
  1457.     DC.W    -5330 
  1458.     DC.W    -5140 
  1459.     DC.W    -4949 
  1460.     DC.W    -4757 
  1461.     DC.W    -4564 
  1462.     DC.W    -4370 
  1463.     DC.W    -4176 
  1464.     DC.W    -3981 
  1465.     DC.W    -3786 
  1466.     DC.W    -3590 
  1467.     DC.W    -3394 
  1468.     DC.W    -3197 
  1469.     DC.W    -2999 
  1470.     DC.W    -2802 
  1471.     DC.W    -2603 
  1472.     DC.W    -2405 
  1473.     DC.W    -2205 
  1474.     DC.W    -2006 
  1475.     DC.W    -1806 
  1476.     DC.W    -1606 
  1477.     DC.W    -1406 
  1478.     DC.W    -1206 
  1479.     DC.W    -1005 
  1480.     DC.W    -804 
  1481.     DC.W    -604 
  1482.     DC.W    -403 
  1483.     DC.W    -202 
  1484.     DC.W    -1 
  1485.     DC.W     201 
  1486.     DC.W     402 
  1487.     DC.W     603 
  1488.     DC.W     803 
  1489.     DC.W     1004 
  1490.     DC.W     1205 
  1491.     DC.W     1405 
  1492.     DC.W     1605 
  1493.     DC.W     1805 
  1494.     DC.W     2005 
  1495.     DC.W     2204 
  1496.     DC.W     2404 
  1497.     DC.W     2602 
  1498.     DC.W     2801 
  1499.     DC.W     2998 
  1500.     DC.W     3196 
  1501.     DC.W     3393 
  1502.     DC.W     3589 
  1503.     DC.W     3785 
  1504.     DC.W     3980 
  1505.     DC.W     4175 
  1506.     DC.W     4369 
  1507.     DC.W     4563 
  1508.     DC.W     4756 
  1509.     DC.W     4948 
  1510.     DC.W     5139 
  1511.     DC.W     5329 
  1512.     DC.W     5519 
  1513.     DC.W     5708 
  1514.     DC.W     5896 
  1515.     DC.W     6083 
  1516.     DC.W     6269 
  1517.     DC.W     6455 
  1518.     DC.W     6639 
  1519.     DC.W     6822 
  1520.     DC.W     7005 
  1521.     DC.W     7186 
  1522.     DC.W     7366 
  1523.     DC.W     7545 
  1524.     DC.W     7723 
  1525.     DC.W     7900 
  1526.     DC.W     8075 
  1527.     DC.W     8249 
  1528.     DC.W     8423 
  1529.     DC.W     8594 
  1530.     DC.W     8765 
  1531.     DC.W     8934 
  1532.     DC.W     9102 
  1533.     DC.W     9268 
  1534.     DC.W     9434 
  1535.     DC.W     9597 
  1536.     DC.W     9759 
  1537.     DC.W     9920 
  1538.     DC.W     10079 
  1539.     DC.W     10237 
  1540.     DC.W     10393 
  1541.     DC.W     10548 
  1542.     DC.W     10701 
  1543.     DC.W     10853 
  1544.     DC.W     11002 
  1545.     DC.W     11150 
  1546.     DC.W     11297 
  1547.     DC.W     11442 
  1548.     DC.W     11585 
  1549.     DC.W     11726 
  1550.     DC.W     11866 
  1551.     DC.W     12003 
  1552.     DC.W     12139 
  1553.     DC.W     12273 
  1554.     DC.W     12406 
  1555.     DC.W     12536 
  1556.     DC.W     12665 
  1557.     DC.W     12791 
  1558.     DC.W     12916 
  1559.     DC.W     13038 
  1560.     DC.W     13159 
  1561.     DC.W     13278 
  1562.     DC.W     13395 
  1563.     DC.W     13510 
  1564.     DC.W     13622 
  1565.     DC.W     13733 
  1566.     DC.W     13842 
  1567.     DC.W     13948 
  1568.     DC.W     14053 
  1569.     DC.W     14155 
  1570.     DC.W     14255 
  1571.     DC.W     14353 
  1572.     DC.W     14449 
  1573.     DC.W     14543 
  1574.     DC.W     14634 
  1575.     DC.W     14723 
  1576.     DC.W     14810 
  1577.     DC.W     14895 
  1578.     DC.W     14978 
  1579.     DC.W     15058 
  1580.     DC.W     15136 
  1581.     DC.W     15212 
  1582.     DC.W     15286 
  1583.     DC.W     15357 
  1584.     DC.W     15426 
  1585.     DC.W     15492 
  1586.     DC.W     15557 
  1587.     DC.W     15618 
  1588.     DC.W     15678 
  1589.     DC.W     15735 
  1590.     DC.W     15790 
  1591.     DC.W     15842 
  1592.     DC.W     15892 
  1593.     DC.W     15940 
  1594.     DC.W     15985 
  1595.     DC.W     16028 
  1596.     DC.W     16069 
  1597.     DC.W     16107 
  1598.     DC.W     16142 
  1599.     DC.W     16175 
  1600.     DC.W     16206 
  1601.     DC.W     16234 
  1602.     DC.W     16260 
  1603.     DC.W     16284 
  1604.     DC.W     16305 
  1605.     DC.W     16323 
  1606.     DC.W     16339 
  1607.     DC.W     16353 
  1608.     DC.W     16364 
  1609.     DC.W     16372 
  1610.     DC.W     16379 
  1611.     DC.W     16382 
  1612.  
  1613.